home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl / 5.10.0 / Pod / Simple / HTMLLegacy.pm < prev    next >
Encoding:
Text File  |  2009-06-26  |  2.7 KB  |  105 lines
  1.  
  2. require 5;
  3. package Pod::Simple::HTMLLegacy;
  4. use strict;
  5.  
  6. use vars qw($VERSION);
  7. use Getopt::Long;
  8.  
  9. $VERSION = "5.01";
  10.  
  11. #--------------------------------------------------------------------------
  12. # 
  13. # This class is meant to thinly emulate bad old Pod::Html
  14. #
  15. # TODO: some basic docs
  16.  
  17. sub pod2html {
  18.   my @args = (@_);
  19.   
  20.   my( $verbose, $infile, $outfile, $title );
  21.   my $index = 1;
  22.  
  23.   {
  24.     my($help);
  25.  
  26.     my($netscape); # dummy
  27.     local @ARGV = @args;
  28.     GetOptions(
  29.       "help"       => \$help,
  30.       "verbose!"   => \$verbose,
  31.       "infile=s"   => \$infile,
  32.       "outfile=s"  => \$outfile,
  33.       "title=s"    => \$title,
  34.       "index!"     => \$index,
  35.  
  36.       "netscape!"   => \$netscape,
  37.     ) or return bad_opts(@args);
  38.     bad_opts(@args) if @ARGV; # it should be all switches!
  39.     return help_message() if $help;
  40.   }
  41.  
  42.   for($infile, $outfile) { $_ = undef unless defined and length }
  43.   
  44.   if($verbose) {
  45.     warn sprintf "%s version %s\n", __PACKAGE__, $VERSION;
  46.     warn "OK, processed args [@args] ...\n";
  47.     warn sprintf
  48.       " Verbose: %s\n Index: %s\n Infile: %s\n Outfile: %s\n Title: %s\n",
  49.       map defined($_) ? $_ : "(nil)",
  50.        $verbose,     $index,     $infile,     $outfile,     $title,
  51.     ;
  52.     *Pod::Simple::HTML::DEBUG = sub(){1};
  53.   }
  54.   require Pod::Simple::HTML;
  55.   Pod::Simple::HTML->VERSION(3);
  56.   
  57.   die "No such input file as $infile\n"
  58.    if defined $infile and ! -e $infile;
  59.  
  60.   
  61.   my $pod = Pod::Simple::HTML->new;
  62.   $pod->force_title($title) if defined $title;
  63.   $pod->index($index);
  64.   return $pod->parse_from_file($infile, $outfile);
  65. }
  66.  
  67. #--------------------------------------------------------------------------
  68.  
  69. sub bad_opts     { die _help_message();         }
  70. sub help_message { print STDOUT _help_message() }
  71.  
  72. #--------------------------------------------------------------------------
  73.  
  74. sub _help_message {
  75.  
  76.   join '',
  77.  
  78. "[", __PACKAGE__, " version ", $VERSION, qq~]
  79. Usage:  pod2html --help --infile=<name> --outfile=<name>
  80.    --verbose --index --noindex
  81.  
  82. Options:
  83.   --help         - prints this message.
  84.   --[no]index    - generate an index at the top of the resulting html
  85.                    (default behavior).
  86.   --infile       - filename for the pod to convert (input taken from stdin
  87.                    by default).
  88.   --outfile      - filename for the resulting html file (output sent to
  89.                    stdout by default).
  90.   --title        - title that will appear in resulting html file.
  91.   --[no]verbose  - self-explanatory (off by default).
  92.  
  93. Note that pod2html is DEPRECATED, and this version implements only
  94.  some of the options known to older versions.
  95. For more information, see 'perldoc pod2html'.
  96. ~;
  97.  
  98. }
  99.  
  100. 1;
  101. __END__
  102.  
  103. OVER the underpass! UNDER the overpass! Around the FUTURE and BEYOND REPAIR!!
  104.  
  105.